﻿Imports System.ComponentModel

Public Class LopBUS
    Public Sub LoadCBX(ByVal cbx As ComboBox, ByVal sql As String)
        Dim Lop_DAO As LopDAO = New LopDAO
        Lop_DAO.LoadCombobox(cbx, sql)
    End Sub
    Public Sub LoadDGV(ByVal dgv As DataGridView, ByVal sql As String)
        Dim Lop_DAO As LopDAO = New LopDAO
        Lop_DAO.LoadGridView(dgv, sql)
    End Sub
    Public Function ThemLop(ByVal lopInsert As LopDTO) As Boolean
        Dim Lop_DAO As LopDAO = New LopDAO
        Return Lop_DAO.ThemLop(lopInsert)
    End Function
    Public Function XoaLop(ByVal id As String) As Boolean
        Dim Lop_DAO As LopDAO = New LopDAO
        Return Lop_DAO.XoaLop(id)
    End Function
    Public Function SuaLop(ByVal lopUpdate As LopDTO) As Boolean
        Dim Lop_DAO As LopDAO = New LopDAO
        Return Lop_DAO.SuaLop(lopUpdate)
    End Function
    Public Function GetList() As BindingList(Of LopDTO)
        Dim lp_DAO As LopDAO = New LopDAO
        Return lp_DAO.GetList()
    End Function
End Class
